home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / 02.dir / 00019.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  1.1 KB  |  29 lines
  1. on MovePainter
  2.   set lCastSprite to the clickOn - 1
  3.   repeat while the stillDown = 1
  4.     set the locV of sprite the clickOn to the mouseV
  5.     set the locH of sprite the clickOn to the mouseH
  6.     set the locV of sprite (lCastSprite + 2) to the locV of sprite the clickOn
  7.     set the locH of sprite (lCastSprite + 2) to the locH of sprite the clickOn
  8.     updateStage()
  9.     repeat with j = 1 to 9
  10.       if sprite (lCastSprite + 2) intersects (j + 2) then
  11.         repeat with k = 1 to 9
  12.           if sprite (lCastSprite + 2) intersects (k + 11) then
  13.             set the type of sprite lCastSprite to 1
  14.             set the stretch of sprite lCastSprite to 0
  15.             set lCastName to "Net" && value(k) & "," & value(j)
  16.             set the castNum of sprite lCastSprite to the number of cast lCastName
  17.             updateStage()
  18.             exit repeat
  19.           end if
  20.         end repeat
  21.       end if
  22.     end repeat
  23.   end repeat
  24.   set the type of sprite lCastSprite to 2
  25.   set the stretch of sprite lCastSprite to 0
  26.   set lCastName to "Blank"
  27.   set the castNum of sprite lCastSprite to the number of cast lCastName
  28. end
  29.